   5 . CONNECT FOUR
   6 .
   7 . BY L. L. CAMNITZ
   8 .
  10 BC=126
  20 FC=0
  30 NT=0
 900 P=1;L=1;M=0;N=0
 950 clear ;gosub 3000
 960 clear 
1000 box -4,-36,118,10,2
1002 CX=-70;CY=20;print "GAME",
1004 CX=45;CY=20;print "BLACK"
1005 CX=58;CY=-20;print #0,M
1006 CX=45;CY=-10;print "WHITE"
1007 CX=58;CY=10;print #0,N
1008 CX=-64;CY=10;print #0,L
1010 box -4,-3,87,56,1
1020 for B=-40to 32step 12
1030 for C=20to -25step -9
1040 box B,C,11,8,2
1050 next C
1060 next B
1070 X=-40
1080 D=-34;E=-34;F=-34;G=-34;H=-34;I=-34;J=-34
1100 CY=40;if P=1print "       BLACK IS UP";goto 1600
1110 CY=40;if P=2print "       WHITE IS UP";goto 1600
1200 if TR(1)=1goto 2000
1210 if JX(1)=1goto 1500
1220 if JX(1)=-1goto 1510
1230 if JY(2)=1goto 3500
1240 goto 1200
1400 if TR(2)=1goto 2000
1405 if &(22)=16goto 900
1410 if JX(2)=1goto 1500
1420 if JX(2)=-1goto 1510
1430 if JY(1)=1goto 3600
1440 goto 1400
1500 X=X+12;goto 1600
1510 X=X-12;goto 1600
1600 if X<-40X=-40
1610 if X>32X=32
1620 box -4,30,100,6,2
1700 box X,30,9,6,1
1705 if P=2box X,30,5,4,2
1706 NT=1
1710 MU="Y";MU="Z"
1711 NT=0
1720 if P=1goto 1200
1730 if P=2goto 1400
2000 if X=-40D=D+9;goto 2200
2010 if X=-28E=E+9;goto 2300
2020 if X=-16F=F+9;goto 2400
2030 if X=-4G=G+9;goto 2500
2040 if X=8H=H+9;goto 2600
2050 if X=20I=I+9;goto 2700
2060 if X=32J=J+9;goto 2800
2200 box X,D,9,6,1
2210 if P=2box X,D,5,4,2;P=1;goto 1100
2220 P=2;goto 1100
2300 box X,E,9,6,1
2310 if P=2box X,E,5,4,2;P=1;goto 1100
2320 P=2;goto 1100
2400 box X,F,9,6,1
2410 if P=2box X,F,5,4,2;P=1;goto 1100
2420 P=2;goto 1100
2500 box X,G,9,6,1
2510 if P=2box X,G,5,4,2;P=1;goto 1100
2520 P=2;goto 1100
2600 box X,H,9,6,1
2610 if P=2box X,H,5,4,2;P=1;goto 1100
2620 P=2;goto 1100
2700 box X,I,9,6,1
2710 if P=2box X,I,5,4,2;P=1;goto 1100
2720 P=2;goto 1100
2800 box X,J,9,6,1
2810 if P=2box X,J,5,4,2;P=1;goto 1100
2820 P=2;goto 1100
3000 CY=20;print "      CONNECT FOUR
3010 print ;input "    NUMBER OF GAMES?"K
3020 return 
3500 CX=-56;CY=-38;print "WHITE CONNECTS FOUR"
3510 M=M+1;CX=58;CY=-20;print #0,M
3515 L=L+1
3520 if L-1=Kgoto 4500
3530 if TR(2)=1goto 1000
3540 goto 3530
3600 CX=-56;CY=-38;print "BLACK CONNECTS FOUR
3610 N=N+1;CX=58;CY=10;print #0,N
3615 L=L+1
3620 if L-1=Kgoto 4500
3630 if TR(1)=1goto 1000
3640 goto 3630
4500 CY=40;print "          GAME OVER   "
4510 if &(22)=16goto 900
4520 goto 4510
:return ;run 
